inherited Frelatoriopedidosfornecedor: TFrelatoriopedidosfornecedor
  Left = 189
  Top = 167
  Width = 861
  Height = 628
  Caption = 
    'COMPRAS / PEDIDO / RELAT'#211'RIOS / RELATORIOS / PEDIDOS POR FORNECE' +
    'DOR'
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 16
  inherited Panel1: TPanel
    Width = 853
  end
  inherited Panel2: TPanel
    Width = 853
  end
  inherited GroupBox1: TGroupBox
    object Label3: TLabel
      Left = 21
      Top = 34
      Width = 92
      Height = 16
      Caption = 'Fornecedor (F8)'
    end
    object DBLCBFornecedor: TDBLookupComboBox
      Left = 21
      Top = 52
      Width = 365
      Height = 22
      KeyField = 'FORN_CODIGO'
      ListField = 'FORN_RAZAO'
      ListSource = DSFornecedor
      TabOrder = 0
      OnKeyDown = DBLCBFornecedorKeyDown
    end
    object GroupBox3: TGroupBox
      Left = 21
      Top = 80
      Width = 225
      Height = 65
      Caption = '  Data Pedido  '
      TabOrder = 1
      object Label5: TLabel
        Left = 108
        Top = 32
        Width = 7
        Height = 16
        Caption = 'a'
      end
      object edDataPedidoIni: TDateEdit
        Left = 9
        Top = 29
        Width = 90
        Height = 21
        NumGlyphs = 2
        TabOrder = 0
      end
      object edDataPedidoFim: TDateEdit
        Left = 126
        Top = 29
        Width = 90
        Height = 21
        NumGlyphs = 2
        TabOrder = 1
      end
    end
    object GroupBox4: TGroupBox
      Left = 21
      Top = 151
      Width = 148
      Height = 105
      Caption = '  Situa'#231#227'o do Pedido  '
      TabOrder = 2
      object CheckBox1: TCheckBox
        Left = 8
        Top = 24
        Width = 97
        Height = 17
        Caption = 'Ativo'
        TabOrder = 0
      end
      object CheckBox2: TCheckBox
        Left = 8
        Top = 48
        Width = 97
        Height = 17
        Caption = 'Encerrado'
        TabOrder = 1
      end
      object CheckBox3: TCheckBox
        Left = 8
        Top = 72
        Width = 97
        Height = 17
        Caption = 'Cancelado'
        TabOrder = 2
      end
    end
    object GroupBox5: TGroupBox
      Left = 173
      Top = 150
      Width = 148
      Height = 105
      Caption = '  Situa'#231#227'o dos Itens  '
      TabOrder = 3
      object CheckBox4: TCheckBox
        Left = 8
        Top = 24
        Width = 97
        Height = 17
        Caption = 'Ativo'
        TabOrder = 0
      end
      object CheckBox5: TCheckBox
        Left = 8
        Top = 48
        Width = 97
        Height = 17
        Caption = 'Encerrado'
        TabOrder = 1
      end
      object CheckBox6: TCheckBox
        Left = 8
        Top = 72
        Width = 97
        Height = 17
        Caption = 'Cancelado'
        TabOrder = 2
      end
    end
  end
  inherited RLReport: TRLReport
    Left = 24
    Top = 437
    DataSource = DSPesquisa
    Margins.LeftMargin = 5
    Margins.RightMargin = 5
    inherited RLBand1: TRLBand
      Left = 19
      Width = 756
    end
    object RLBand2: TRLBand
      Left = 19
      Top = 120
      Width = 756
      Height = 41
      BandType = btColumnHeader
      object RLLabel1: TRLLabel
        Left = 2
        Top = 2
        Width = 57
        Height = 14
        AutoSize = False
        Caption = 'N'#186' Pedido'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object RLLabel2: TRLLabel
        Left = 2
        Top = 18
        Width = 57
        Height = 14
        AutoSize = False
        Caption = 'Data'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object RLLabel3: TRLLabel
        Left = 111
        Top = 2
        Width = 57
        Height = 14
        AutoSize = False
        Caption = 'Descri'#231#227'o'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object RLLabel4: TRLLabel
        Left = 448
        Top = 2
        Width = 66
        Height = 14
        AutoSize = False
        Caption = 'Pre'#231'o Unit.'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object RLLabel5: TRLLabel
        Left = 536
        Top = 18
        Width = 53
        Height = 14
        AutoSize = False
        Caption = 'Qtd. Atend.'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object RLLabel6: TRLLabel
        Left = 536
        Top = 2
        Width = 53
        Height = 14
        AutoSize = False
        Caption = 'Qtd. Ped.'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object RLLabel7: TRLLabel
        Left = 661
        Top = 2
        Width = 34
        Height = 14
        AutoSize = False
        Caption = 'Unid.'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object RLLabel8: TRLLabel
        Left = 62
        Top = 18
        Width = 47
        Height = 14
        AutoSize = False
        Caption = 'Produto'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object RLLabel9: TRLLabel
        Left = 62
        Top = 2
        Width = 47
        Height = 14
        AutoSize = False
        Caption = 'C'#243'digo'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object RLLabel10: TRLLabel
        Left = 111
        Top = 18
        Width = 194
        Height = 14
        AutoSize = False
        Caption = 'Referencia Fabricante / Fornecedor'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object RLLabel11: TRLLabel
        Left = 448
        Top = 18
        Width = 66
        Height = 14
        AutoSize = False
        Caption = 'Pre'#231'o Total'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object RLLabel12: TRLLabel
        Left = 661
        Top = 18
        Width = 81
        Height = 14
        AutoSize = False
        Caption = 'Autoriza'#231#227'o'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object RLLabel14: TRLLabel
        Left = 608
        Top = 18
        Width = 34
        Height = 14
        AutoSize = False
        Caption = 'Saldo'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
    end
    object RLGroup1: TRLGroup
      Left = 19
      Top = 161
      Width = 756
      Height = 144
      DataFields = 'PED_FORNECEDOR'
      object RLBand3: TRLBand
        Left = 0
        Top = 19
        Width = 756
        Height = 36
        object RLDBText2: TRLDBText
          Left = 2
          Top = 2
          Width = 57
          Height = 14
          AutoSize = False
          DataField = 'PED_CODIGO'
          DataSource = DSPesquisa
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object RLDBText3: TRLDBText
          Left = 1
          Top = 18
          Width = 57
          Height = 14
          AutoSize = False
          DataField = 'PED_DATA'
          DataSource = DSPesquisa
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object RLDBText5: TRLDBText
          Left = 62
          Top = 2
          Width = 111
          Height = 14
          DataField = 'ITENS_PED_PRODUTO'
          DataSource = DSPesquisa
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object RLDBText9: TRLDBText
          Left = 62
          Top = 18
          Width = 57
          Height = 14
          DataSource = DSPesquisa
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object RLDBText10: TRLDBText
          Left = 111
          Top = 2
          Width = 322
          Height = 14
          AutoSize = False
          DataField = 'PROD_DESCRICAOENT'
          DataSource = DSPesquisa
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object RLDBText11: TRLDBText
          Left = 111
          Top = 18
          Width = 125
          Height = 14
          DataField = 'PROF_REF_FABRICANTE'
          DataSource = DSPesquisa
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object RLDBText12: TRLDBText
          Left = 448
          Top = 2
          Width = 63
          Height = 14
          Alignment = taRightJustify
          AutoSize = False
          DataField = 'ITENS_PED_VALOR'
          DataSource = DSPesquisa
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object RLDBText13: TRLDBText
          Left = 448
          Top = 18
          Width = 63
          Height = 14
          Alignment = taRightJustify
          AutoSize = False
          DataField = 'ITENS_PED_VALOR_TOTAL'
          DataSource = DSPesquisa
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object RLDBText14: TRLDBText
          Left = 536
          Top = 2
          Width = 64
          Height = 14
          Alignment = taCenter
          AutoSize = False
          DataField = 'ITENS_PED_QUANTIDADE'
          DataSource = DSPesquisa
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object RLDBText15: TRLDBText
          Left = 536
          Top = 18
          Width = 64
          Height = 14
          Alignment = taCenter
          AutoSize = False
          DataField = 'ITENS_PED_QUANTIDADEATEN'
          DataSource = DSPesquisa
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object RLDBText16: TRLDBText
          Left = 608
          Top = 18
          Width = 41
          Height = 14
          AutoSize = False
          DataField = 'ITENS_PED_QUANTIDADE'
          DataSource = DSPesquisa
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          BeforePrint = RLDBText16BeforePrint
        end
        object RLDBText17: TRLDBText
          Left = 661
          Top = 2
          Width = 92
          Height = 14
          DataField = 'PROD_UNIDSAIDA'
          DataSource = DSPesquisa
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object RLDBText19: TRLDBText
          Left = 659
          Top = 18
          Width = 94
          Height = 14
          Alignment = taRightJustify
          AutoSize = False
          DataField = 'PED_AUT_SITUACAO'
          DataSource = DSPesquisa
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          BeforePrint = RLDBText19BeforePrint
        end
        object RLDBText6: TRLDBText
          Left = 247
          Top = 17
          Width = 99
          Height = 14
          DataField = 'PROD_REFERENCIA'
          DataSource = DSPesquisa
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
      end
      object RLBand4: TRLBand
        Left = 0
        Top = 0
        Width = 756
        Height = 19
        BandType = btColumnHeader
        Borders.Sides = sdCustom
        Borders.DrawLeft = False
        Borders.DrawTop = True
        Borders.DrawRight = False
        Borders.DrawBottom = False
        object RLDBText4: TRLDBText
          Left = 73
          Top = 2
          Width = 130
          Height = 14
          DataField = 'PED_FORNECEDOR_DESC'
          DataSource = DSPesquisa
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object RLLabel15: TRLLabel
          Left = 2
          Top = 2
          Width = 70
          Height = 14
          AutoSize = False
          Caption = 'Fornecedor: '
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          ParentFont = False
        end
      end
    end
  end
  inherited QPesquisa: TQuery
    SQL.Strings = (
      'SELECT '
      '  PEDIDO.PED_CODIGO,'
      '  PEDIDO.PED_AUT_SITUACAO,'
      '  PEDIDO.PED_FORNECEDOR,'
      '  PED_FORNECEDOR_DESC,'
      '  PEDIDO.PED_DATA,'
      '  PEDIDO.PED_FRETE,'
      '  PEDIDO.PED_VALORFRETE,'
      '  PEDIDO.PED_VALOR_PEDIDO, '
      '  ITENSPEDIDO.ITENS_PED_PRODUTO,'
      '  ITENSPEDIDO.ITENS_PED_QUANTIDADE,'
      '  ITENSPEDIDO.ITENS_PED_QUANTIDADEATEN,'
      '  ITENSPEDIDO.ITENS_PED_VALOR,'
      '  ITENSPEDIDO.ITENS_PED_VALOR_TOTAL,'
      '  ITENSPEDIDO.ITENS_PED_SITUACAO,'
      '  PRODUTO.PROD_DESCRICAOENT,'
      '  PRODUTO.PROD_UNIDSAIDA,'
      '  PRODUTO.PROF_REF_FABRICANTE,'
      '  PRODUTO.PROD_REFERENCIA'
      'FROM'
      '  PEDIDO'
      
        '    INNER JOIN ITENSPEDIDO On (ITENSPEDIDO.ITENS_PED_PEDIDO = PE' +
        'DIDO.PED_CODIGO)'
      
        '    INNER JOIN PRODUTO ON (ITENSPEDIDO.ITENS_PED_PRODUTO = PRODU' +
        'TO.PROD_CODIGO)'
      'WHERE (PED_CODIGO IS NOT NULL )'
      'ORDER BY'
      '   PEDIDO.PED_FORNECEDOR_DESC')
    Left = 424
    Top = 97
    object QPesquisaPED_CODIGO: TIntegerField
      FieldName = 'PED_CODIGO'
      Origin = 'BASE.PEDIDO.PED_CODIGO'
    end
    object QPesquisaPED_FORNECEDOR: TIntegerField
      FieldName = 'PED_FORNECEDOR'
      Origin = 'BASE.PEDIDO.PED_FORNECEDOR'
    end
    object QPesquisaPED_FORNECEDOR_DESC: TStringField
      FieldName = 'PED_FORNECEDOR_DESC'
      Origin = 'BASE.PEDIDO.PED_FORNECEDOR_DESC'
      Size = 60
    end
    object QPesquisaPED_DATA: TDateTimeField
      FieldName = 'PED_DATA'
      Origin = 'BASE.PEDIDO.PED_DATA'
      DisplayFormat = 'DD/MM/YYYY'
    end
    object QPesquisaPED_VALOR_PEDIDO: TFloatField
      FieldName = 'PED_VALOR_PEDIDO'
      Origin = 'BASE.PEDIDO.PED_VALOR_PEDIDO'
      DisplayFormat = '#,##0.00'
    end
    object QPesquisaPED_FRETE: TStringField
      FieldName = 'PED_FRETE'
      Origin = 'BASE.PEDIDO.PED_FRETE'
      FixedChar = True
      Size = 3
    end
    object QPesquisaPED_VALORFRETE: TFloatField
      FieldName = 'PED_VALORFRETE'
      Origin = 'BASE.PEDIDO.PED_VALORFRETE'
      DisplayFormat = '#,##0.00'
    end
    object QPesquisaITENS_PED_PRODUTO: TIntegerField
      FieldName = 'ITENS_PED_PRODUTO'
    end
    object QPesquisaITENS_PED_QUANTIDADE: TFloatField
      FieldName = 'ITENS_PED_QUANTIDADE'
    end
    object QPesquisaITENS_PED_QUANTIDADEATEN: TFloatField
      FieldName = 'ITENS_PED_QUANTIDADEATEN'
    end
    object QPesquisaITENS_PED_VALOR: TFloatField
      FieldName = 'ITENS_PED_VALOR'
    end
    object QPesquisaITENS_PED_VALOR_TOTAL: TFloatField
      FieldName = 'ITENS_PED_VALOR_TOTAL'
    end
    object QPesquisaITENS_PED_SITUACAO: TIntegerField
      FieldName = 'ITENS_PED_SITUACAO'
    end
    object QPesquisaPROD_DESCRICAOENT: TStringField
      FieldName = 'PROD_DESCRICAOENT'
      Size = 60
    end
    object QPesquisaPROD_UNIDSAIDA: TStringField
      FieldName = 'PROD_UNIDSAIDA'
      Size = 5
    end
    object QPesquisaPROD_REFERENCIA: TStringField
      FieldName = 'PROD_REFERENCIA'
    end
    object QPesquisaPED_AUT_SITUACAO: TStringField
      FieldName = 'PED_AUT_SITUACAO'
      FixedChar = True
      Size = 1
    end
    object QPesquisaPROF_REF_FABRICANTE: TStringField
      FieldName = 'PROF_REF_FABRICANTE'
    end
  end
  inherited DSPesquisa: TDataSource
    Left = 480
    Top = 94
  end
  object DSFornecedor: TDataSource
    DataSet = DMGestao.QFornecedor
    Left = 536
    Top = 96
  end
end
